home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / MONTHLYO.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  653b  |  19 lines
  1. 100 'Monthly Odometer ("MONTHLYODO")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Monthly Odometer" :  COLOR 15,0
  4. 130 PRINT
  5. 140 DEFINT A-Z
  6. 150 'Get starting date from user
  7. 160 INPUT "Starting month (1-12): ", MONTH
  8. 170 IF (MONTH < 1) OR (MONTH > 12)  THEN PRINT " * No such month *" : GOTO 160
  9. 180 INPUT "Year: ", YEAR
  10. 190 IF (YEAR < 1900) OR (YEAR > 2100)  THEN PRINT "* Invalid year *" : GOTO 180
  11. 200 INPUT "Number of months forward: ", MFRW
  12. 210 MONTHNUM = YEAR * 12 + MONTH + MFRW
  13. 220 YEAR = (MONTHNUM - 1) \ 12
  14. 230 MONTH = MONTHNUM - YEAR * 12
  15. 240 PRINT
  16. 250 PRINT "Month: "; USING "####"; MONTH
  17. 260 PRINT "Year:  "; USING "####"; YEAR
  18. 270 END
  19.